C
      CHARACTER CBTT*4,IST*2,IET*2
      CHARACTER LINE*80,FILE1*28,FILE2*27
      OPEN(UNIT=3,FILE='DRA2:[FORECAST]STATIONS.DAT',STATUS='OLD')
C
200   READ(3,100,END=500)CBTT,IY1,IY2
100   FORMAT(A,1X,2I2)
	ENCODE(2,102,IST)IY1
	ENCODE(2,102,IET)IY2
102   FORMAT(I2)
      FILE2='DRA2:[FORECAST]'//CBTT//IST//IET//'.DAT'
      OPEN(UNIT=2,FILE=FILE2,STATUS='OLD')
C	IF(IY2 .EQ. 85)THEN
C		IY2=87
C		ENCODE(2,102,IET)IY2
C		ENDIF
      FILE1='DRA2:[FORECAST]'//CBTT//'_'//IST//IET//'.NEW'
      OPEN(UNIT=1,FILE=FILE1,CARRIAGECONTROL='LIST',STATUS='NEW')
201   READ(2,101,END=200)LINE
      WRITE(1,101)LINE
101   FORMAT(A)
      GO TO 201
500   STOP
      END
